Partial Public Class FrmRptRemitoServicio
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load


        Dim ds As DataSet = Session("RptListadoRemitoServicio")
        Dim oRpt As RptRemitoServicio = New RptRemitoServicio()
        Dim dtCFSP As DataTable
        dtCFSP = ds.Tables(0)
        oRpt.SetDataSource(dtCFSP)
      
        CrystalReportViewer1.Visible = True
        CrystalReportViewer1.ReportSource = oRpt


        '        Dim dts As New DataSet'

        '        dts = Session("RptListadoRemitoServicio")

        '       Dim tbl As DataTable
        '      tbl = dts.Tables(0)

        '     Dim Reporte As New CrystalReport1
        '    Reporte.SetDataSource(tbl)

        '   Me.CrystalReportSource1.ReportSource = Reporte
    End Sub

End Class